inherited frmDogovorChangeStatus: TfrmDogovorChangeStatus
  Left = 979
  Top = 784
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1057#1084#1077#1085#1072' '#1089#1090#1072#1090#1091#1089#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
  ClientHeight = 107
  ClientWidth = 293
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 24
    Top = 12
    Width = 82
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1044#1077#1081#1089#1090#1074#1080#1077
  end
  object Label2: TLabel [1]
    Left = 24
    Top = 34
    Width = 82
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
  end
  object Label3: TLabel [2]
    Left = 24
    Top = 56
    Width = 82
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
  end
  inherited Panel1: TPanel
    Top = 80
    Width = 293
    inherited BitBtn1: TBitBtn
      Left = 86
    end
    inherited BitBtn2: TBitBtn
      Left = 188
    end
  end
  inherited ToolBar1: TToolBar
    Width = 293
    Height = 0
    Enabled = False
    Visible = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object lcbAllowStatus: TDBLookupComboboxEh [5]
    Left = 116
    Top = 10
    Width = 169
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    KeyField = 'RSTATUS'
    ListField = 'RSTATUS_NAME'
    ListSource = dsc_AllowStatus
    TabOrder = 2
    Visible = True
    OnChange = lcbAllowStatusChange
  end
  object dbt_Bdate: TDBDateTimeEditEh [6]
    Left = 116
    Top = 32
    Width = 169
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 3
    Visible = True
  end
  object dbt_Edate: TDBDateTimeEditEh [7]
    Left = 116
    Top = 54
    Width = 169
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 4
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 0
    Top = 28
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    Left = 28
    Top = 0
  end
  object ds_AllowStatus: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RSTATUS,'
      '    RSTATUS_NAME,'
      '    RNEED_BDATE,'
      '    RNEED_EDATE'
      'FROM'
      '    PROC_DOGOVOR_GET_ALLOW_STAT(:PDOGOVOR_ID) ')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 180
    object ds_AllowStatusRSTATUS: TFIBSmallIntField
      FieldName = 'RSTATUS'
    end
    object ds_AllowStatusRSTATUS_NAME: TFIBStringField
      FieldName = 'RSTATUS_NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_AllowStatusRNEED_BDATE: TFIBSmallIntField
      FieldName = 'RNEED_BDATE'
    end
    object ds_AllowStatusRNEED_EDATE: TFIBSmallIntField
      FieldName = 'RNEED_EDATE'
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
  end
  object QSetStatus: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_DOGOVOR_SET_STATUS'
      '(:PDOGOVOR_ID,'
      '    :PSTATUS,'
      '    :PBDATE,'
      '    :PEDATE)')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 180
    Top = 32
  end
  object dsc_AllowStatus: TDataSource
    DataSet = ds_AllowStatus
    Left = 212
  end
end
